perm filename AD[VV,BGB] blob
sn#133446 filedate 1974-12-04 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00004 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 TITLE AD
C00004 00003 SW10: GO 3,@[.+1] EXIT USER IOT MODE.
C00006 00004 PDP-6 SPACE WAR JOB.
C00007 ENDMK
C⊗;
TITLE AD
.INSERT M
EXTERNAL DPYSET,DPYBUF,DPYOUT,AIVECT,AVECT
EXTERNAL OCTDPY,DECDPY,FLODPY,DPYSTR,DPYBIG
INTEGER SYSPI,HUNG,MISSED,POT21,CNT6
INTEGER BP1,BP2,BP3
PDL10: BLOCK 20 ;SPACEWAR-10 PDL
PDL6: BLOCK 20 ;SPACEWAR-6 PDL
PDL: BLOCK 20 ;USER MODE.
SA: RESET↔DPYPOS -100↔DPYSIZ 12000
LAC P,[IOWD 20,PDL]
CALL(DPYSET,DPYBUF)
CALL(AIVECT,[-=400],[0])
CALL(AVECT,[=400],[0])
CALL(AVECT,[=400],[=400])
CALL(AVECT,[-=400],[=400])
CALL(AVECT,[-=400],[0])
CALL(DPYBIG,[4])
CALL(AIVECT,[-=360],[=350])↔CALL(DPYSTR,[[ASCIZ/SW EXECUTIONS /]])
CALL(AIVECT,[-=360],[=300])↔CALL(DPYSTR,[[ASCIZ"A/D HANGS"]])
CALL(AIVECT,[-=360],[=250])↔CALL(DPYSTR,[[ASCIZ"A/D DATA MISSES"]])
CALL(AIVECT,[-=360],[=150])↔CALL(DPYSTR,[[ASCIZ/POT17 COHU FOCUS/]])
CALL(AIVECT,[-=360],[=100])↔CALL(DPYSTR,[[ASCIZ/POT20 COHU TILT /]])
CALL(AIVECT,[-=360],[=050])↔CALL(DPYSTR,[[ASCIZ/POT21 COHU PAN /]])
CALL(DPYOUT,[0])
SPCWAR 4,SW6
LAC [XWD 400017,SW10]↔SPCWGO
INCHRW↔CAIE "E"↔GO .-2↔EXIT
SW10: GO 3,@[.+1] ;EXIT USER IOT MODE.
LAC P,[IOWD 20,PDL10]
CALL(DPYSET,DPYBUF)
CALL(DPYBIG,[4])
LDB [POINT 12,POT21,11]↔ROT -=12↔ASH -=24↔DAC TMP1#
LDB [POINT 12,POT21,23]↔ROT -=12↔ASH -=24↔DAC TMP2#
LDB [POINT 12,POT21,35]↔ROT -=12↔ASH -=24↔DAC TMP3#
CALL(AIVECT,[-=50],[=350])↔CALL(DECDPY,CNT6)
CALL(AIVECT,[-=50],[=300])↔CALL(DECDPY,HUNG)
CALL(AIVECT,[-=50],[=250])↔CALL(DECDPY,MISSED)
CALL(AIVECT,[-=50],[=150])↔CALL(DECDPY,TMP3)
CALL(AIVECT,[-=50],[=100])↔CALL(DECDPY,TMP2)
CALL(AIVECT,[-=50],[=050])↔CALL(DECDPY,TMP1)
CALL(DPYOUT,[1])
DISMIS
;PDP-6 SPACE WAR JOB.
SW6: AOS CNT6
;READ THE COHU POTS.
CONI 204,SYSPI ;SAVE THE SYSTEM 136 PI.
CONO 204,4250 ;INIT THE 136: INPUT 12 BIT BYTES FROM DEVICE 5.
CONO 424,172030 ;INIT THE A/D: CHANNEL 17 SPEED 3.
;WAIT FOR 136 TO FINISH OR DATA-MISS OR HANG.
MOVEI 100
L1: CONSZ 204,1B26↔GO DONE
CONSZ 204,1B23↔GO MISS
SOJGE L1↔GO HANG
HANG: SETZM POT21↔AOS HUNG↔GO L9
MISS: SETZM POT21↔AOS MISSED↔GO L9
DONE: DATAI 204,POT21
L9: CONO 424,4000 ;STOP A/D.
CONO 204,@SYSPI ;RESTORE SYSTEM'S PI.
DISMIS
END SA